#include <iostream>
#include <string>
#include <vector>

int main() {
    std::string word;
    std::getline(std::cin, word);
    std::vector<std::string> lst_word;
    std::string zx;
    int lat_up_word = 0;
    int kir_up_word = 0;
    int tre_word = 0;
    int trie_wrd = 0;
    int x = 0;
    int xz = 0;
    
    for (int i = 0; i < word.length(); i++) {
        if (word[i] >= 'А' && word[i] <= 'Я') {
            kir_up_word += 1;
        }
        if (word[i] >= 'A' && word[i] <= 'Z') {
            lat_up_word += 1;
        }
    }
    
    for (int i = 0; i < word.length(); i++) {
        if (word[i] == ' ') {
            lst_word.push_back(word.substr(x, i - x));
            x = i + 1;
        }
    }
    lst_word.push_back(word.substr(x, word.length() - x));

    std::cout << "Количество слов: " << lst_word.size() << std::endl;
    
    for (int i = 0; i < lst_word.size(); i++) {
        if (lst_word[i].length() <= 3) {
            tre_word += 1;
        }
        if (lst_word[i].find('-') != std::string::npos) {
            trie_wrd += 1;
        }
    }
    
    std::cout << "Кол-во слов с заглавной кириллической буквы: " << kir_up_word << std::endl;
    std::cout << "Кол-во слов содержащих латинский символ: " << lat_up_word << std::endl;
    std::cout << "Кол-во слов не превышающих 3 символа: " << tre_word << std::endl;
    std::cout << "Кол-во слов в составе которых имеется дефис: " << trie_wrd << std::endl;
    std::cout << std::endl;
    
    for (int i = 0; i < lst_word.size(); i++) {
        if (lst_word[i].length() > xz) {
